home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbwiz13.zip
/
SOURCE.ZIP
/
DOSVERS.ASM
< prev
next >
Wrap
Assembly Source File
|
1992-07-14
|
1KB
|
44 lines
comment #
+----------------------------------------------------------------------+
| |
| QBWiz Copyright (c) 1990-1992 Thomas G. Hanlin III |
| |
| QuickBasic Access Library |
| |
+----------------------------------------------------------------------+
#
public DOSVERSION
.model medium
.code
extrn __osmajor: byte
extrn __osminor: byte
DOSVERSION proc ; get DOS version
push bp ;
mov bp,sp ;
xor ax,ax ;
mov al,__osmajor ;
mov bx,8[bp] ;
mov [bx],ax ;
mov al,__osminor ;
mov bx,6[bp] ;
mov [bx],ax ;
pop bp ;
ret 4 ;
DOSVERSION endp ; get DOS version
end